home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Whiteline: delta
/
whiteline CD Series - delta.iso
/
progtool
/
modula2
/
module
/
mindmach.mod
< prev
next >
Wrap
Text File
|
1995-11-25
|
4KB
|
123 lines
IMPLEMENTATION MODULE MindMachine;
(* Version*: 20.12.89 00:16*)
FROM SYSTEM IMPORT VAL;
FROM MegaBrain IMPORT Up,Down,Stay, SetFrequence;
PROCEDURE LC(int:INTEGER):LONGCARD;
BEGIN
RETURN VAL(LONGCARD,int);
END LC;
PROCEDURE Change(FreqGang :FrequenzGangARRAY );
VAR i:INTEGER;
BEGIN
IF (FreqGang[1]<>0) AND (FreqGang[2]<>0) THEN
SetFrequence(FreqGang[1]);
IF (FreqGang[1] = FreqGang[2]) OR (FreqGang[3] =0) THEN
Stay(LC(FreqGang[3]),CHR(FreqGang[4]),CHR(FreqGang[5]),
CHR(FreqGang[6]),CHR(FreqGang[7]));
ELSIF FreqGang[1]<FreqGang[2] THEN
Up(FreqGang[2],LC(FreqGang[3]),CHR(FreqGang[4]),CHR(FreqGang[5]),
CHR(FreqGang[6]),CHR(FreqGang[7]));
ELSIF FreqGang[1]>FreqGang[2] THEN
Down(FreqGang[2],LC(FreqGang[3]),CHR(FreqGang[4]),CHR(FreqGang[5]),
CHR(FreqGang[6]),CHR(FreqGang[7]));
END(*IF*);
END(*IF*);
END Change;
PROCEDURE HaraldWessbacher;
BEGIN
SetFrequence(15);
Down(7,1,CHR(224),CHR(7),CHR(0),CHR(0));
Stay(180,CHR(239),CHR(239),CHR(0),CHR(0));
Down(5,1,CHR(15),CHR(15),CHR(0),CHR(0));
Stay(120,CHR(232),CHR(232),CHR(0),CHR(0));
Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
END HaraldWessbacher;
PROCEDURE LutzMehlhorn;
BEGIN
SetFrequence(15);
Down(7,2,CHR(231),CHR(231),CHR(0),CHR(0));
Stay(120,CHR(239),CHR(239),CHR(0),CHR(0));
Down(5,1,CHR(15),CHR(232),CHR(0),CHR(0));
Stay(120,CHR(232),CHR(232),CHR(0),CHR(0));
Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
END LutzMehlhorn;
PROCEDURE MidsummerNight;
BEGIN
SetFrequence(15);
Down(10,1,CHR(231),CHR(231),CHR(0),CHR(0));
Stay(240,CHR(239),CHR(239),CHR(0),CHR(0));
Down(8,1,CHR(15),CHR(232),CHR(0),CHR(0));
Stay(240,CHR(232),CHR(232),CHR(0),CHR(0));
Stay(120,CHR(15),CHR(232),CHR(0),CHR(0));
Stay(240,CHR(15),CHR(15),CHR(0),CHR(0));
Stay(360,CHR(239),CHR(239),CHR(0),CHR(0));
Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
END MidsummerNight ;
PROCEDURE EarthHarmonie;
BEGIN
SetFrequence(08);
Down(7,1,CHR(231),CHR(231),CHR(0),CHR(0));
Stay(1,CHR(239),CHR(239),CHR(0),CHR(0));
Up(8,1,CHR(15),CHR(15),CHR(232),CHR(232));
Stay(60,CHR(232),CHR(232),CHR(0),CHR(15));
Stay(60,CHR(15),CHR(15),CHR(232),CHR(232));
Stay(60,CHR(15),CHR(15),CHR(0),CHR(232));
Stay(80,CHR(239),CHR(239),CHR(0),CHR(0));
Up(18,6,CHR(224),CHR(224),CHR(7),CHR(7));
Stay(0,CHR(239),CHR(239),CHR(0),CHR(0));
END EarthHarmonie;
PROCEDURE RuhevolleWachheit;
BEGIN
SetFrequence(30);
Down(18,4,CHR(231),CHR(231),CHR(0),CHR(0));
Down(7,1,CHR(224),CHR(7),CHR(0),CHR(0));
Up(12,5,CHR(15),CHR(232),CHR(0),CHR(0));
Down(10,3,CHR(232),CHR(232),CHR(0),CHR(0));
Down(8,1,CHR(15),CHR(232),CHR(0),CHR(0));
Down(7,1,CHR(224),CHR(7),CHR(0),CHR(0));
Stay(180,CHR(239),CHR(239),CHR(0),CHR(0));
Down(5,1,CHR(15),CHR(15),CHR(0),CHR(0));
Stay(120,CHR(232),CHR(232),CHR(0),CHR(0));
Up(18,6,CHR(224),CHR(7),CHR(0),CHR(0));
Up(30,6,CHR(224),CHR(7),CHR(0),CHR(0));
END RuhevolleWachheit;
PROCEDURE AllgBenutzung;
BEGIN
SetFrequence(30);
Down(18,1,CHR(231),CHR(231),CHR(0),CHR(0));
Down(10,9,CHR(239),CHR(239),CHR(0),CHR(0));
Up(12,5,CHR(15),CHR(232),CHR(0),CHR(0));
Down(10,3,CHR(232),CHR(232),CHR(0),CHR(0));
Down(7,1,CHR(15),CHR(232),CHR(0),CHR(0));
Up(10,2,CHR(15),CHR(15),CHR(0),CHR(0));
Up(15,4,CHR(239),CHR(239),CHR(0),CHR(0));
Up(30,6,CHR(224),CHR(7),CHR(0),CHR(0));
END AllgBenutzung ;
PROCEDURE Anregung;
BEGIN
SetFrequence(30);
Down(18,1,CHR(231),CHR(231),CHR(0),CHR(0));
Up(22,9,CHR(239),CHR(239),CHR(0),CHR(0));
Down(15,1,CHR(15),CHR(232),CHR(0),CHR(0));
Up(25,9,CHR(232),CHR(232),CHR(0),CHR(0));
Down(15,7,CHR(15),CHR(232),CHR(0),CHR(0));
Up(20,5,CHR(15),CHR(15),CHR(0),CHR(0));
Up(22,7,CHR(239),CHR(239),CHR(0),CHR(0));
Up(25,6,CHR(224),CHR(7),CHR(0),CHR(0));
END Anregung ;
END MindMachine.